home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 59 / 059.d81 / loadstar forms (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  1.3 KB  |  56 lines
  1. 5 a=a+1:ifa=1thenload"subscribe form",8,1
  2. 10 poke53280,1:poke53281,1
  3. 11 printchr$(142)"[147][152]"
  4. 12 print"  [221][215][221]"spc(31)"[221][215][221]"
  5. 13 print"  [221]-[221]-------------------------------[221]-[221]"
  6. 14 fori=0to8
  7. 15 print"  [221][215][221]"spc(31)"[221][215][221]"
  8. 16 print"  [221] [221]"spc(31)"[221] [221]"
  9. 17 next
  10. 18 print"  [221][215][221]"spc(31)"[221][215][221]"
  11. 19 print"  [221]-[221]-------------------------------[221]-[221]"
  12. 20 print"  [221][215][221]"spc(31)"[221][215][221]"
  13. 25 print""tab(10)"[152]loadstar forms printer"
  14. 26 printtab(10)"[152]-------- ----- -------"
  15. 30 printtab(8)"1) [151]print submission form"
  16. 40 printtab(8)"[152]2) [151]print subscription form"
  17. 50 printtab(8)"[152]3) [151]return to loadstar":poke198,.
  18. 55 printtab(8)"    [152]press 1, 2 or 3."
  19. 60 geta$:ifa$<"1"ora$>"3"then60
  20. 70 ifa$="2"then2000
  21. 80 ifa$="3"then60000
  22. 90 :
  23. 1000 gosub3000:ifnot(ok)then10
  24. 1010 gosub4000:if(ab)then10
  25. 1020 open4,4,7:open3,8,3,"submission form":print#4,"          ";
  26. 1030 fori=.to1:get#3,a$:i=st
  27. 1040 ifa$=chr$(13)thenprint#4:print#4,"          ";:goto1060
  28. 1050 print#4,a$;
  29. 1060 next:close3
  30. 1070 fora=1to7:print#4:next
  31. 1080 close4:goto10
  32. 1090 :
  33. 2000 gosub3000:ifok=0then10
  34. 2010 gosub4000:if(ab)then10
  35. 2020 open4,4,7:sys51137,32768:print#4
  36. 2030 close4:goto10
  37. 2040 :
  38. 3000 ok=0:open15,4,15:close15
  39. 3010 ifst=0thenok=-1:return
  40. 3030 print"error:  printer not ready!"
  41. 3040 fora=1to2000:next:return
  42. 3050 :
  43. 4000 print"set printer to top of paper "
  44. 4010 print"      press space to print"
  45. 4015 print"         or a to abort"
  46. 4020 a=peek(203):ifa<>60anda<>10then4020
  47. 4030 ab=.:ifa=10thenab=-1
  48. 4040 return
  49. 4050 :
  50. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  51. 60010 ifer<>63thenend
  52. 60020 print"[147]":poke53281,7
  53. 60030 print"[158]load"chr$(34)"hello connect"chr$(34)",8"
  54. 60040 print"run"
  55. 60050 poke631,13:poke632,13:poke198,2
  56.